home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 3 / Amoszine 3.adf / MORE_SOURCE / fadein.AMOS / fadein.amosSourceCode
Encoding:
AMOS Source Code  |  1992-02-26  |  323 b   |  12 lines
  1. Global A$
  2. A$="picname.iff"
  3. _SHOWPIC
  4. Procedure _SHOWPIC
  5. Load Iff A$,0 : Screen Hide 0
  6. GW=Screen Colour : Screen Open 1,100,10,GW,Lowres
  7. Screen Hide 1 : Flash Off : Curs Off 
  8. Get Palette 0
  9. Screen 0 : Fade 1 : Wait 15
  10. Screen Show 0 : Fade 3 To 1 : Wait 45 : Screen Close 1
  11. Wait 220 : Fade 2 : Wait 30 : Screen Close 0
  12. End Proc